home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test12.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  293 b   |  14 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :- calllist([a1,a2,a3,a4,a5]).
  5.  
  6. calllist(E) :- var(E), !.
  7. calllist([H|T]) :- call(H), calllist(T).
  8.  
  9. a1 :- write(ok1), nl.
  10. a2 :- write(ok2), nl.
  11. a3 :- write(ok3), nl.
  12. a4 :- write(ok4), nl.
  13. a5 :- write(ok5), nl.
  14.